      *> File Name     000006_StringBuilder.cbl.
      *> Description   Using the StringBuilder class.
      *> Project Type  Console Application.
      *> CodePlex URL  http://cobol.codeplex.com
 
       program-id.   Main.
       repository.
           class sys-console   as "System.Console"
           class stringbuilder as "System.Text.StringBuilder"
           .
       working-storage section.
       01  sb  stringbuilder.
       procedure division.
           move "Using a StringBuilder" to sys-console::"Title"
 
           move stringbuilder::"New"(32) to sb
 
           invoke sb::"Append"("COBOL ")
           invoke sb::"Append"("makes ")
           invoke sb::"Append"("happy.")
 
           display sb
 
           display "Press any key to continue . . . " no advancing
           invoke sys-console::"ReadKey"(true)
           .
       end program   Main.